From 698e433740a546e51cb03a9e28bb624216b4863a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 1 May 2004 04:35:51 +0000 Subject: [PATCH] (miscdic-convert): Don't generate a quail file if it is up to date. --- lisp/international/titdic-cnv.el | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 759df5fd949..b1ce0a0255b 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -1113,21 +1113,25 @@ the generated Quail package is saved." name title dicfile coding quailfile converter copyright dicbuf) (while tail - (when (or (string-match (nth 2 (car tail)) filename) - ;; MS-DOS filesystem truncates file names to 8+3 - ;; limits, so "cangjie-table.cns" becomes - ;; "cangjie-.cns", and the above string-match fails. - ;; Give DOS users a chance... - (and (fboundp 'msdos-long-file-names) - (not (msdos-long-file-names)) - (string-match (dos-8+3-filename (nth 2 (car tail))) - filename))) - (setq slot (car tail) - name (car slot) + (setq slot (car tail) + dicfile (nth 2 slot) + quailfile (nth 4 slot)) + (when (and (or (string-match dicfile filename) + ;; MS-DOS filesystem truncates file names to 8+3 + ;; limits, so "cangjie-table.cns" becomes + ;; "cangjie-.cns", and the above string-match + ;; fails. Give DOS users a chance... + (and (fboundp 'msdos-long-file-names) + (not (msdos-long-file-names)) + (string-match (dos-8+3-filename dicfile) filename))) + (if (file-newer-than-file-p + filename (expand-file-name quailfile dirname)) + t + (message "%s is up to date" quailfile) + nil)) + (setq name (car slot) title (nth 1 slot) - dicfile (nth 2 slot) coding (nth 3 slot) - quailfile (nth 4 slot) converter (nth 5 slot) copyright (nth 6 slot)) (message "Converting %s to %s..." dicfile quailfile) -- 2.30.2